1 REM =================================
2 REM    COMMODARES PROBLEM #48-2 :
3 REM      RANDOM WALK
4 REM    SOLUTION BY
5 REM      JUDY GROTH
6 REM =================================
10 POKE 53280,0:POKE 53281,0:PRINT"[147][154]";:SP=1024:SC=54272
20 CC(1)=2:M(1)=-40:CC(2)=6:M(2)=40:CC(3)=7:M(3)=-1:CC(4)=5:M(4)=1
30 A=INT(RND(1)*4)+1: UC=112+A: IF A=4 THEN UC=107
40 S=SP+M(A):IFS<1024 OR S>2023 THEN 30
50 POKE SP,UC:POKESP+SC,CC(A):SP=SP+M(A):REM IF PEEK(S)=32 THEN SP=SP+M(A)
60 POKE SP,81:POKE SP+SC,1:GOTO 30